COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "DIAG"
C00005 ENDMK
C⊗;
BEGIN "DIAG"
REQUIRE "GRAHDR.SAI[GRA,HPM]" SOURCE_FILE;

INTEGER FJ,I,J,K,L,M,N; REAL P,Q;
REAL ARRAY X,Y[1:10];

PROCEDURE ARROW(REAL X1,Y1,X2,Y2);
   BEGIN
   REAL DX,DY,D; REAL ARRAY HEADX,HEADY[1:3];
   LINE(X1,Y1,X2,Y2); DX←X2-X1; DY←Y2-Y1; D←SQRT(DX↑2+DY↑2);
   DX←0.06*DX/D; DY←0.06*DY/D;
   HEADX[1]←X2; HEADY[1]←Y2;
   HEADX[2]←X2-DX-DY/4;  HEADY[2]←Y2-DY+DX/4;
   HEADX[3]←X2-DX+DY/4;  HEADY[3]←Y2-DY-DX/4;
   POLYGO(3,HEADX[1],HEADY[1]);
   END;

FJ←FILJOB("DSK:PRETTY.GFL[DOC,HPM]");

DDINIT; SCREEN(-1.2,-1.2,1.2,1.2);

PICFIL(-1,-1,1,1,"DSK:SF2.ENH[PIC,HE]"); LITEN;
LINE(-1,-1,-1,1); LINE(1,1,-1,1);  LINE(1,1,1,-1);   LINE(-1,-1,1,-1);

FNTSEL(100,"METMB"); FNTSEL(101,"METMI"); FNTSEL(103,"BASL30");

FNTPOS(-1,1.03,1,1,0,0); FNTEXT(0,0,100,"See the pretty aeroplane");

FNTPOS(.3,.7,1,1,0,0); FNTEXT(0,0,101,"This is the aeroplane's head");
ARROW(.3,.7,.57,-.24);

FNTPOS(-.2,-.8,1,1,0,0); FNTEXT(0,0,101,"This is the aeroplane's tail");
ARROW(-.2,-.8,-.4,-.05);

DRKEN;
BEGIN REAL ARRAY X,Y[1:20]; INTEGER I;
      FOR I←1 STEP 1 UNTIL 20 DO BEGIN X[I]←.89+0.304*COS((I-1)*2*3.14159/20);
       			               Y[I]←.5+0.12*SIN((I-1)*2*3.14159/20); END;
      X[12]←.62; Y[12]←-.23;      POLYGO(20,X[1],Y[1]);      LITEN;
      FOR I←1 STEP 1 UNTIL 20 DO LINE(X[I],Y[I],X[(I MOD 20)+1],Y[(I MOD 20)+1]);
      END;

FNTPOS(.61,.5-.02,1,1,0,0); FNTEXT(0,0,103,"Yow !!!  I am an L1011 !!");

DPYUP(-1); KILJOB(FJ);
END;